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New Source for 65802's 


I talked to Constantine Geromnimon at Alliance Computers this 
morning. His company has ordered hundreds of 65802's, and 
offers them to you at $49.95 each. They expect their next 
shipment to come in around the middle of January, so now is the 
time to order. Call them at (718) 672-0684, or write to P. O. 
Box 408, Corona, NY 11368. 


Tom Weishaar Writes Again] 


If you are among the throng who mourn the passing of Softalk, 
and particularly of the many informative columns such as 
DOStalk by Tom Weishaar, you will be as glad as I am that Tom 
has started publishing his own monthly newsletter. 


Called “Open-Apple"“, you can subscribe for $24. In an 
unprecedented move toward international goodwill and the 
wholesome exchange of information, Tom has set the price the 
same for everyone, everywhere. We promptly sent him a check. 
If you love your Apple, do likewise. Send to Open-Apple, 10026 
Roe, Overland Park, Kansas 66207. If you are cautious, send no 
money; Tom will bill you with the first issue, and you can 
cancel if you lose interest. 


18-Digit Arithmetic, Part Bie cc wwe eewee eee BOD Sander-Cederlof 


Someone pointed out last week that this series is getting a 
little long. Well, we are nearing the end. What we are doing 
is probably unprecedented in the industry: listing the source 
code and explaining it for a large commercially valuable 
software product. It takes time and space to break precedents. 


This month's installment completes the normal set of math 
functions, with sine, cosine, and arc tangent. We even slipped 
in a simple form of the tangent function. Still to come are 
the formatted INPUT and PRINT routines. 


Some Elementary Info: 


Trigonometry is a frightening word. (If it doesn't scare you, 
skip ahead several paragraphs.) The “-ometry" refers to 
measurement, but what is a “trigon“. Believe it or not, 
"trigon” is another name for a triangle. Trigon means three 
sides, and figures with three sides just happen to also have 
three angles. “Trig" (a nice nickname) is a branch of 
mathematics dealing with triangles, without which we could not 
fly to the moon, draw a map, or build bridges. Strangely 
enough, much of electronics also uses trig funtions ... are 
electrons triangular? 


When I took trig in high school, long before the day of 
personal calculators, we used trig tables. (These were not 
articles of furniture made in the local woodshop, but rather 
long lists of strange numbers printed and bound into books.) 
The tables contained values for various ratios of the sides of 
a triangle having one 90-degree angle. Now we use calculators 
or computers, but obviously the trig tables would not fit in 
them. Instead, approximation formulas are used. 


In high school, we talked about six different ratios: sine, 
cosine, tangent, cotangent, secant, and cosecant. When it is 
all boiled down, we really only need the sine; all the rest are 
derivable from those. The sine function gives a a number for 
any angle. We frequently need to be able to go from a trig 
value back to an angle, and the most useful function for that 
is called the inverse tangent, or arctangent. 


Even though I have been talking about triangles, trig functions 
are even more related to circles. We compute functions of the 
angle between any two radii, like the hands on an 
old-fashioned, pre-digital wrist watch. When we start talking 
about circles, we get into radians vs. degrees, 


Just as scientists like logarithms to the base e (rather than 
10), they also like trig functions based on angles expressed in 
radians, rather than degrees. Degrees were invented back in 
Babylon, I understand, and are nice and clean: 360 make a 
complete circle. Radians are not clean: 360 degrees is 
two-times-pi radians. Nevertheless, many physical and 
electronic formulas simplify when angles are expressed in 
radians. Consequently, calculators and computer languages 
usually expect your angles to be expressed in radians. Some 
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allow both options. Applesoft expects radians, and so do my 
DP18 programs. 


We commonly think of an angle as being somewhere between 0 and 
360 degrees, or the equivalent range in radians. However, 
angles can actually be any number, from -infinity to tinfinity. 
The numbers beyond one complete circle are valid, but they 
don't buy much. If you stand in one place and spin around 1445 
degrees (4*360 + 5) you will end up pointing the same direction 
as if you merely swiveled 5 degrees. Therefore the first step 
in a sine function calculation involves subtracting out all the 
multiples of a full circle from the angle. 


The arctangent function could return an infinite number of 
answers, but that is impractical. We will return only the 
principal value, which is the one closest to 0. All others are 
that value plus or minus any number of full circles. In DP18 
the ATN function may have one or two arguments. If you only 
have one argument, the result will be an angle between -pi/2 
and +pi/2. If you specify two arguments, a value between -pi 
and +pi will be returned. 


The Nitty-Gritty: 


Enough of this preliminary stuff, let's get into the code. In 
the listing which follows, you will find entries for four 
functions: SIN, COS, TAN, and ATN. 


Perhaps the easiest is the TAN function, at lines 2530-2630. 
Since tan=sin/cos, that is all this code does. We lose a 
little speed and possibly some precision with this simplistic 
solution, but the TAN function is relatively rarely called. 


Next in difficulty is the COS function, lines 1630-1710. Since 
cos (-x)=cos(x), we start by making the sign positive (lines 
1690-1700. Since cos(x)=sin(x+tpi/2), we add pi/2 and fall into 
the SIN function. Simple, but effective. 


The SIN function gets more interesting. For very very small 
angles, within the precision of 20 digits, sgin(x)=x. Lines 

1780-1810 check for exponents below -10; all angles smaller 

than 10°-10 are gmall enough that sin(x)=x. 


Next we take advantage of the fact that sin(-x)=-sin(x), at 
lines 1820-1860. We remember the sign by shoving it on the 
stack, and force the sign of x positive. 


Lines 1870-1950 get the principal angle. I divide x by twopi, 
and throw away the integral part. The fractional part that 
remains is a fraction of a full circle, a value between 0 and 
-999999...9- (not radians, and not degrees either). Note that 
if x was extremely large there will be no fractional part, and 
the remainder will be zero. Some SIN function calculators give 
an error message when this happens, but I chose to let it ride. 


Lines 1960-2000 multiply the circle-fraction by four. This 


gives a number between 0 and 3.99999...9, which I will refer to 
later as the “circle fraction times four", or c-f-t-f. The 


Page 4....Apple Assembly Line....December, 1984....Copyright (C) S-C SOFTWARE 


integer part is effectively a quadrant number, and the 
fractional part a fraction within the quadrant: 


1 0 
2 3 


Lines 2010-2030 determine if the angle is in the first (0) 
quadrant. If so, no folding need be done. 


Lines 2040-2070 determine if the angle is in the second (1) 
quadrant. If so, we skip ahead to apply the fact that sin(pi/2 
+ x) = sin(pi/2 - x). 


Lines 2080-2160 are executed if the angle is in the 3rd or 4th 
quadrants (integral part is 2 or 3). Here I apply the fact 
that sin(pit+x)=-sin(x). I pull the saved sign off the stack, 
complement it, and shove it back on (lines 2090-2110). Then I 
subtract 2 from the c-f-t-f, yielding a number between 0 and 
1.99999...9. We have folded the third and fourth quadrants 
over the first and second quadrants. Next lines 2170-2190 
determine if the result was in the first quadrant or not. 


Lines 2200-2240 fold a second quadrant number into the first 
quadrant, by applying the fact that sin(pi/2+x) = sin(pi/2-x). 
Subtacting the c-f-t-f from 2 flips us into the first quadrant. 


Lines 2260-2270 pull the sign off the stack and make it the 
sign of the angle. Remember that now the angle is a fraction 
(between 0 and .99999...9) of a quadrant, After all these 
folding operations, the angle might again be very very small, 
so lines 2280-2300 check for that possibility. If so, 
sin(x)=x, but that is only true when x is in radians. Lines 
2490-2520 convert the quadrant-fraction to radians by 
multiplying by pi/2, and exits. 


Lines 2310-2470 handle larger angles by computing x*P/Q, where 
P and Q are polynomials in x“2. The constants for P and Q are 
given in lines 1420-1550, and come from the Hart book. [ I 
should mention here that I wrote those constants with pretty 
periods separating groups of five digits. MThie will not 
assemble in some older versions of the S-C Macro Assembler. If 
you get a syntax error, just leave out the periods. ] 


Turning the Tables: 


ATN is hardest to compute. First we have to deal with the two 
variants of calls, having one or two arguments. While all the 
previous function programs were called with the argument 
already in DAC, DP.ATN is called immediately after parsing the 
ATN-token. Lines 2960-3070 parse and process the following 
parentheses and whatever is between them. 


Lines 2960-2970 require an opening parenthesis. Line 3070 
requires the closing parenthesis. In between we expect one 
expression, or two expressions separated by a comma. If there 
is only one, we fake a second one (= 1.0). 
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What are the two arguments? Looking at a cartesian systen, 
with the vector shown below, the arguments are (Y,X). If you 
call with one argument, it is (Y/X). 


hy 


By using two separate arguments, rather than just the ratio, we 
can tell which of the four quadrants the vector was in. 

DP.ATAN will return a value between -pi and +pi, depending on 
the two signs. If you specify only the ratio, DP.ATAN will 
return a value between 0 and +pi depending on the sign. 


x 


Lines 3120-3160 save the two signs in bits 6 and 7 of UV.SIGN. 
Way at the end, lines 4100 and following, UV.SIGN determines 
the final value. If the sign of the denominator (X-vector) was 
negative, the composite vector is in the 2nd or 3rd quadrant: 
computing pi - angle gives a result between pi/2 and pi. 


If the numerator (Y-vector) was negative, the composite vector 
is in the 3rd or 4th quadrant. Flipping the sign gives a 
result between 0 and ~pi. 


Lines 3180-3220 check for special cases of Y=0 or X=0. If the 
first argument (Y-vector) is zero, the angle is 0 or pi 
depending on the sign of the second argument. If the second 
argument (X-vector) ig zero, the angle is either +pi/2 or 
-pi/2, depending on the sign of the first argument. What if 
both arguments are zero? That should produce an error message, 
but I am overlooking it: I will return an angle of 0 in this 
case. 


If neither argument is zero, some special checks are made to 
see if the value of the ratio is very small or very large. I 
check before actually dividing, so the divide routine won't 
kick out on an overflow error. If the ratio would be greater 
than 10°20, I return a value of pi/2. This is accurate within 
the precision of DP18. On the other hand, if the ratio is 
smaller than 10°-63 I return 0. If neither extreme is true, I 
go ahead an divide to get the actual ratio. Then I check for 
an extremely small ratio, in which case atan(x) =x. 


If we find our way down to line 3390, the ratio is between 
10°-10 and 10°20. That is still too large a range for comfort, 
60 we apply the fact that atan(1/x) = atan(pi/2 - x). If the 
ratio of Y/X is greater than 1.0, then we take the reciprocal 
and remember that we did so. This in effect folds the range at 
pi/4. The resulting argument range is between 107-10 and l. 
The variable N holds either 0 or 2 as a flag: O if we were 
already under 1, 2 if we formed the reciprocal. 


The shape of the curve of the arctangent function between 0 and 
1 (an angle between 0 and pi/4) is deceptive. It looks nice 
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RAMWORKS" 


800K Apple Works Desk Top, 450K Visicalc, 
1 Meg Solid State Disk 
Double Hi-Res, RGB, Totally Apple Compatible! 
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RAMWORKS"-—A card that plugs 
into the Apple Ile auxiliary slot and 
functions EXACTLY like Apple's 
extended 80 column card (in fact, a 
128K RAMWORKS” actually costs 
less than Apple’s 64K extended card) 
but with RAMWORKS™ you get more 
memory, 80 column text, a 3-year 
warranty and most importantly, room 
to grow without using more slots. A 
design so advanced there's a patent 
pending on it. If you have a /Ic or an 
IBM, we suggest you do what every- 
body does, trade it in on a lle. 

RAMWORKS*” can be purchased 
in a wide range of sizes and is user 
upgradeable using either64K RAMS 
or the new 256K RAMS. In fact, 
RAMWORKS” is the only auxiliary 
slot card on the market that will allow 
the new 256K RAMS to be used. If 
you already have an extended 80 
column card, no problem. Just un- 
plug the 64K RAMS and plug them 
into the RAMWORKS*” for an addi- 
tional 64K. A RGB option is also 
available, you can order it with your 
RAMWORKS" card or add it on ata 
later date. 

RAMWORKS” saves you time. 
money, slots and hassle. You'll have 
additional memory NOW and in the 
future. 


Ramworks™ 
64K Installed 
128K Installed 
256K Installed 
512K Installed 

1 MEG Installed 
RGB Option 


(May be added tate) 
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LOW COST SOFTWARE OPTIONS 


Ram Drive Iie 

Ram Drive Ile will give you a high 
speed solid state disk drive. The 
Ram Drive Ile software features 
audio-visual access indicators, easy 
setup for turnkey operation, and easy 
menu driven documentation. The 
program can be modified and is 
copyable. If you have a 64K RAM- 
WORKS”™, Ram Drive Ile will act as 
half a disk drive. {f you have a 128K 
or larger RAMWORKS"™. Ram Drive 
lle will act as a full disk drive. Either 
way. your programs will load and 
save over 20 times faster. Ram Drive 
Ile is compatible with APPLESOFT. 
PRO DOS. DOS 3.3. and PASCAL. 
The disk also includes a high speed 
RAMdisk copying program. Ram 
Drive is another disk drive only 20 
times faster. And nowhirring, clicking 
and waiting! PRICE $29 


CP/M Ram Drive Ile 

CP/M Ram Drive lle is just like the 
Ram Drive tle above, only for CP/M. 

CP/M Ram Drive Ile runs on any 
Z-80 card that runs standard CP/M 
i.e. Applied Engineering Z-80 Plus or 
Microsoft Soft Card. CP/M Ram Drive 
will dramatically speed up the opera- 
tion of most CP/M software because 
CP/M normally goes to disk fairly 
often. Fast acting software like 
dBase II. Wordstar and Turbo Pascal 
becomes virtually instantaneous 
when used with CP/M Ram Drive. 

PRICE $29 

VC Ile Expander 


VC Ile expander gives owners of 
Visicalc Ile and Advanced Visicalc 
lle increased storage. When used 
with VC Ile you'll get 141K work- 
space (128K RAMWORKS*” or larger 
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required). When used with Advanced 
VC Ile you'll get 131K with a 128K 
RAMWORKS”, 250K with a 256K 
RAMWORKS" and 450K witha 512K 
RAMWORKS™ PRICE $29 


Apple Works Expand 


Although Apple Works is com- 
patible with all sizes of RAM- 
WORKS"™, Apple Works only “sees” 
its first 64K bank giving you a 55K 
desktop. Our Apple Works expand 
program will make a modification to 
Apple Works that simply lets it know 
you ve got more memory, giving you 
101K work space. PRICE $29 


Super Apple Works Expand 


This souped-up version of Apple 
Works expand doesn't stop ata 101K 
desk top, in fact Super Apple Works 
Expand figures out how much 
memory your RAMWORKS"™ has to 
give Apple Works the following desk- 
top sizes: 


. APPLEWORKS 
RAMWORKS DESKTOP 


PRICE $39 
AppleWorks can also be putin the 
RAMWORKS" card to eliminate disk 
access. thereby dramatically speed- 
ing up the program. 


APPLIED ENGINEERING 


Send Check or Money Order to 

Applied Engineering 

PO Boy 798 Carrcilton TX 75006 

Call (214) 492-2027 

Bam to tl om 7 days a week MasterCard Visa & 
COD Welcome No extra charge lor creail Candas 
Texas residents aad 57-2) saics tux Add $1000 tf out: 
side USa 
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and easy, but a polynomial over that range with 20 digits of 
precision is much too long. We can easily reduce the range 
still further by applying another identity. If the reduced 
argument is now already below tan(pi/l2), fine. If not, 
calculating (x*sqr(3)-l1) / (sqr(3)+x) will bring it into that 
range. If we have to apply that formula, N will be incremented 
(making it 1 or 3). 


The curve between 0 and tan(pi/l2) looks almost like a straight 
line to the naked eye, but it really is far from straight. It 
takes a ratio of the form P/xQ where P and Q are polynomials in 
x°2. The coefficients are given in lines 2650-2770, again from 
Hart. The ratio is computed in lines 3800-3960. 


Lines 3970-4080 start the unfolding process. The variable N is 
either 0, 1, 2, or 3 by this time. If N is 0, no folding was 
done. If N is 1, only folding above pi/l2 was done. If N is 
2, only folding above pi/4 was done. If N is 3, both folds 
were done. These lines convert the angle back to the correct 
value, using a table of addends and an optional sign flip: 


N unfolding formula 

0 none 

1 pi/6 + x 

2 pi/2 - x 

3 pi/2 - ( pi/6 + x) = pi/3 - x 


That's it! We already discussed the code beyond line 4100, 
which figures out which quadrant the angle is in. 


Any questions? 


tote SAVE S.DP18 TRIG 
Bi- 1020 AS.CHRGET .EQ $B1 
B7- sake AS.CHRGOT .EQ $B7 
DEBB- 1040 AS.CHKCLS .EQ $DEBB 
DEB8- 1 : AS. HKOPN .EQ $DEB8 
FFFF- Moke POLY. 1 -EQ $FFFF 
FFFF- 1080 POLY.N -EQ $FFFF 
FFFF- 1090 DADD -EQ $FFFF 
FFFF- 1100 DSUB -EQ $FFFF 
FFFF- 1110 DMULT -EQ $FFFF 
FFFF- 1120 DDIV EQ $FFFF 
FFFF- 1330 DP. INT -EQ $FFFF 
FFFF- 1140 DP.EXP -EQ $FFFF 
FFFF- 1190 - TRUE Q $FFFF 
FFFF- 1160 DP.FALSE  .EQ $FFFF 
FFFF- she MOVE.DAC.ARG .EQ $FFFF 
FFFF- 1180 MOVE.YA.ARG.1 .EQ $FFFF 
FFFF- 1190 MOVE.YA.DAC.1 .EQ $FFFF 
FFFF- 1200 SWAP.ARG.DAC  .EQ $FFFF 
FFFF- 1210 MOVE.DAC.TEMP1 .EQ $FFFF 
FFFF- 1220 MOVE.DAC.TEMP2 .EQ $FFFF 
FFFF= 1230 MOVE.DAC.TEMP3 .EQ $FFFF 
FFFF- 1240 MOVE.TEMP1.DAC .EQ $FFFF 
FFFF- 1250 MOVE.TEMP1.ARG .EQ $FFFF 
FFFF- 12600 MOVE.TEMP2.ARG .EQ $FFFF 
FFFF- 1270 MOVE.TEMP3. -EQ $FFFF 
FFFF- 1280 PUSH.DAC.STACK .EQ $FFFF 
FFFF- 1290 POP.STACK.ARG .EQ $FFFF 
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¢ SIN 


o SIN.N 


CON .TWO 


CON .2PI 


CON .PI.2 


CON .PI 


CON.1..2PI 


-HS 


-HS 


eHS 


- HS 


-HS 


-HS 


-HS 


-HS 


Rese Sew eee ecncecseekeeeeeceeceu 
DAC . EXPONENT 


ARG.EXPONENT .BS1 
ARG. SIGN 


& 
6 P68X°6 + P5#X*5 + 1... + PI#X + PO 


3C.50312.63884. 64664. 12845 
BE .828 18. 08039. 29577. 39110 
40 .62919 63490 .93113.55230 
C2. 25642 .44036.60338. 57070 
43 .53892 .64053 .57788. 76289 
C4.49326 .67470 .47152. 36677 


45. 12596 . 16380.91365 .41816 


2 X°2 + QI#X + QO 
43.15743.43316 .33194. 13935 


44,80189.66936 .87727 . 15787 


41. 10000. 00000. 00000. 00000 
41 .20000. 00000. 00000. 00000 
41.628 31.85307 . 17958. 64769 
4115707 .96326 .79489. 66192 
4131415 .92653.58979. 32385 


40 .15915 .49430.91895. 33577 


P6 
PS 
Ph 
P3 
P2 
Pt 


PO 


Q1 


QO 


1/2PI 
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1630 Bre eieseeeceeskecesneeewiceeecn cs 
io : COS (DAC) 
O8BF- A9 9E 1660 DP.COS LDA #CON.PI. 2 PI/2 
O8ci- AO 08 1970 LDY /CON.PI.2 
O8C3- 20 FF FF 1680 JSR MOVE.YA.ARG.1 COS(X) = SIN(X+PI/2) 
O8Cb- AQ 00 1690 LDA #0 GET ABS(DAC) TO FORCE 
O8C8- 8D OB 08 1700 STA DAC.SIGN »- COS(-X)=COS(X) 
O8CB- 20 FF FF 1710 JSR DADD 
1720 Pome seme peccebeecseeeeccesas 
1 3 & SIN (DAC) 
1740 # #3371 
1750 Semeencenere ene nee en eeeeeeeeenen - 
1760 DP.SIN 
1770 #..-TF X VERY SMALL... ——-~------ ~ 
O8CE- AD 00 08 1780 LDA DAC.EXPONENT 
08D1- C9 38 1790 CMP #$40-10 
O8D3- BO 01 1800 BCS . NOT VERY SMALL 
O8D5- 60 1810 RTS VERY SMALL, SIN(X) =X 
1820 #---ADJUST FOR SIGN OF X------- 
O8D6- AD OB 08 1830 1 LDA DAC.SIGN SIN(-X) goes ) 
O8DA= AQ 00 1850 L 0 “sins MAKE’ 2 X POSITIVE 
O8DC- 8D 08 1860 STA DAC.SIGN 
1 ge Gone X8(1/2P ) a Ones 68 a» an cin an a OD On a ean ae aDen Even ~ 
O8DF=- AQ BY 1880 LDA #CON.1..2PI 
O8E1- Ad 08 1890 LDY /CON.1..2P1 
O8E3- 20 FF FF 1900 JSR MOVE.YA.ARG.1 
O8E6- 20 FF FF 1910 JSR DMULT 
1920 #---GET FRACTIONAL PART------- men 
O8E9~ 20 FF FF 1930 JSR MOVE.DAC. ARG 
O8EC- 20 FF FF 1940 JSR DP. INT 
O8EF- 20 FF FF 1990 
13 0 e---FOLD” D QUADRANTS x INTO ONE ---<2- 
O8F2- 20 FF FF 1 fo MULTIPLY BY FOUR 
O8F ~ 20 FF FF 19 ISR DADD BY DOUBLING TWICE 
O8F8- 20 FF FF 1990 JSR MOVE.DAC. ARG 
O8FB- 20 FF FF 2000 JSR DADD DAC 
O8FE- AD 00 08 2010 LDA DAC. EXPONENT ts Spang fr 
0901=- C9 41 2020 CMP #$41 
0903- 90 29 2030 BCC . -+- YES, IT IS IN 1ST QUADRANT 
2080 #---2ND, 3RD, OR ATH-—-------scen 
0905- AD 01 08 2050 Lpa DAC. HI 
0908- C 20 2060 CMP #$20 IS DAC < 2.0? 
090a- 90 1 2070 BCC . -+ YES, 1 1st OR 2ND QUADRANT 
2080 #---FOLD 3RD-4TH OVER 1ST-2NDexwou 
090D- 49 80 2100 EOR #$80 3RD OR uH QUADRANTS 
O90F- 4 2110 PHA 
0910 A9 88 2120 LDA #CON.TWO FOLD 3RD & 4TH OVER 1ST & 2ND 
0912= ab 08 2130 LDY /CON.TWO 
0914- 20 FF FF 2140 JSR MOVE.YA. ARG. 1 
0917= 20 FF FF 2150 JSR SWAP. ARG.DAC 
091A- 20 FF FF 2160 JSR DSUB 
091D=- AD 00 08 2170 LDA DAC. EXPONENT 
0920- C9 41 2180 CMP #$41 ; 
0922- 90 OA 2190 BCC . «+ ALREADY IN 1ST 
2200 #---FOLD 2ND OVER 1ST-~------~ a 
0924- Ad 88 2210 .3 LDA #CON.TWO LET Xs2=X 
0928- AO 0 2220 LDY /CON.TWO 
0928- 20 FF FF 2230 JSR HOVE. YA.ARG.1 
092B- 20 FF FF 2240 JSR D 
2250 #---ANGLE NOW IN 1ST QUADRANT--~- 
092E- 68 2260 .4 PLA PUT FINAL SIGN ON X 
092F- 8D OB 08 2270 STA DAC.SIGN 
0932- AD 00 08 2280 LDA DAC. EXPONENT CHECK FOR VERY SMALL 
0935—- C9 37 2290 CMP #$40- 9 
09 gz 90 2D 2300 BCC .5 SIN(X)=X#PI/2 
0939- 20 FF FF 2310 JSR MOVE.DAC. ARG preeené FOR POLYNOMIALS 
093C- 20 FF FF 2320 JSR MOVE.DAC.TEMP1 X IN TEMP1 
093F- 20 FF FF 2330 JSR DMULT X*X IN TEMP2 
0942— 20 FF FF 2340 JSR MOVE.DAC. TEMP2 
O945— AO 14 2350 LDA #P.SIN 
0947- Ad O 2360 LDY /P.SIN 
O949- A2 0 LDX #P.SIN.N 
O94B- 20 FF FF 2380 JSR POLY.N 
OO4E- 20 FF FF 2390 JSR MOVE.DAC.TEMP3 
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S-C Software Corporation 


2331 Gus Thomasson, Suite 125, P.O. Box 280300, Dallas, Texas 75228 (214) 324-2050 


S-C Macro Cross Assemblers 


The high cost of dedicated microprocessor development systems has forced many 
technical people to look for alternate methods to develop programs for the various 
popular microprocessors. Combining the versatile Apple II with the S-C Macro 
Assembler provides a cost effective and powerful development system. Hobbyists 
and engineers alike will find the friendly combination the easiest and best way to 
extend their skills to other microprocessors. 


The S-C Macro Cross Assemblers are all identical in operation to the S-C Macro 
Assembler; only the language assembled is different. They are sold as upgrade 
packages to the S-C Macro Assembler. The S-C Macro Assembler, complete with 
100-page reference manual, costs $80; once you have it, you may add as many Cross 
Assemblers as you wish at a nominal price. The following S-C Macro Cross 
Assembler versions are now available: 


Motorola: 6800,1,2/6301 $32.50 RCA: 1802/1805 $32.50 

6805 $32.50 

6809 $32.50 Rockwell: 65C02 $20 

68000 $50 

DEC: LSI-11 $50 

Intel: 8048 $32.50 General Instruments: 

8051 $32.50 GI-1650 $50 

8085 $32.50 GI-1670 $50 
Zilog: Z-80 $32.50 

z-8 $32.50 


The S-C Macro Assembler family is well known for its ease-of-use and powerful 
features. Thousands of users in over 30 countries and in every type of industry 
attest to its speed, dependablility, and user-friendliness. There are 20 
assembler directives to provide powerful macros, conditional assembly, and 
flexible data generation. INCLUDE and TARGET FILE capabilities allow source 
programs to be as large as your disk space. The integrated, co-resident source 
program editor provides global search and replace, move, and edit. The EDIT 
command has 15 sub-commands combined with global selection. 


Each S-C Assembler diskette contains two complete ready-to-run assemblers: one is 
for execution in the mother-board RAM; the other executes in a 16K RAM Card. The 
HELLO program offers menu selection to load the version you desire. The disks may 
be copied using any standard Apple disk copy program, and copies of the assembler 
may be BSAVEd on your working disks. 


S-C Software Corporation has frequently been commended for outstanding support: 
competent telephone help, a monthly (by subscription) newsletter, continuing 
enhancements, and excellent upgrade policies. 
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0951= AY 6 2400 LDA #Q.SIN 


0953- AO 0 2410 LDY /Q.SIN 
0955= A2 02 2420 LDX #Q.SIN.N 
0957- 20 FF FF 2430 JSR POLY.1 
095A- 20 FF FF 24 JSR MOVE.TEMP3.ARG 
095D~ 20 FF FF 2450 JSR DDIV P/ 
0960=- 20 FF FF 2460 JSR MOVE.TEMP1.ARG XP/Q 
0963- 4C FF FF eh : JMP DMULT 
0966- AQ 9E 2490 .5 LDA #CON.PI.2 FOR VERY SMALL X 
0968- AO 08 2500 LDY /CON.PI.2 SIN(2X/PI) = X®PI/2 
096A=- 20 FF FF 2510 JSR MOVE. YA.ARG. 1 
096D- 4C FF FF eae : JMP DMULT 
a : : TAN (DAC) = SIN(DAC) / COS(DAC) 
0970=- 20 FF EF 5280 DP.TAN JSR PUSH.DAC.STACK SAVE ANGLE 
0973= 20 CE 08 2570 JSR DP.SIN TAN=SIN/COS 
0976= 20 FF FF 2580 JSR POP.STACK.ARG GET ANGLE 
0979=- 20 FF FF att. JSR PUSH.DAC.STACK SAVE SIN 
O97C=- 20 FF FF 2600 JSR SWAP.ARG.DAC 
O97F- 20 BF 08 2610 JSR DP.COS GET COSINE 
0982- 20 FF FF 2620 JSR POP.STACK.ARG GET SIN 
0985- 4C FF FF 26 30 JMP DDIV SIN/COS 
0988- 2650 P.ATN .EQ ® HART # 5505 
03- 2660 P.ATN.N EQ 3 P3#X°3 + P2#X°2 + P1#X + PO 
OB Re 42 12 32 
O98B- 58 02 2 
O98E- 30 29 54 
0991- 72 40 2670 HS 42.12595. 80226 .30295.47240 P3 
0993- 3 12 28 
0990- 16 
0999- 37 98 06 
099C= 55 20 26 80 ~HS 43.12557.91664.37980.65520 P2 
099E- 3 29 89 
O9Al=- 2 93 B9 
O9AN- 6? 39 62 
O9AT= 24 48 2690 -HS 43.29892.80380.69396.22448 P1 
O9A9- 4 43 Ue 
O9AC- 03 09 56 
O9AF- 8 23 50 
O9B2- 28 5 Sie P HS 43.19720. 30956 . 84935.02854 PO 
09 B4- 20 Q.ATN -EQ & 
O4- 2730 Q.ATN.N -EQ 4 X74 + Q3X°3 + Q2X°2 + QIX + QO 
O9B4- 42 Fy 06 
O9B7- 60 32 
O9BA= 20 19 02 
O9BD- 38 01 2740 HS 42.37066 .08632.20190.23801 Q3 
O9BF- 43 20 76 
09C2- 92 68 Wi 
09C5- 60 4 
09Cd-=- 61 2750 HS 43.20769.26817 .33604.63361  Q2 
O9CA= 43 36 46 
O9CD=- 62 40 32 
09D0- 24 is 1 
09D3—= 2 2760 HS 43. 36466 .24032.97707.76242 Q1 
O9D5- 43 19 72 
O9D8- 03 19 56 
O9DB- 8% 33 50 
O9DE- 28 c oho ; HS 43.19720. 30956 .84935 .02861 QO 
2120 ATN.TBL. 
O9E0- 03 2500 eDA /CON.PI.6 
2830 ATN. oL 
OE - Fi 2340 ~DA #CON. oT: 6 
O9E4- 9E 2850 ~DA #CON.PI.2 
O9E5= FC opee ~DA #CON.PI.3 
O9E6=- 40 26 7 
O9E9=- 49 19 i} 
O9EC= 31 12 27 
OOF 1= 40 52 35 
O9F4- TT 3 


O9F7- 98 
O9FA- 73 0 8 2890 CON.PI.6 .HS 40.52359. 87755. 98298. 87308 
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O9FC- 41 10 47 
OOFF=- 19 75 51 
OA02- Wy 5 97 
OA05— ] 62 2900 CON.PI.3 .HS 41.10471.97551.19659. 77462 
OAO7= 41 17 32 
OAOA- 05 08 07 
OAOD- 56 88 77 
OA10- 29 35 2329 CON.SQR.3 .HS 41.17320.50807 .56887.72935 
30 # ATN FUNCTION 
33 9 : 1 OR 2 ARGUMENTS 
OA12=- 20 B1 00 2360 DP.ATN JSR AS.CHRGET 
OA15= 20 B8 JSR AS.CHKOPN CHECK FOR ( 
0A18=- 20 FF FF 29 JSR DP.EXP GET EXPRESSION 
OA1B- 20 FF FF. 2990 JSR PUSH.DAC. STACK 
OA1E- 20 FF FF 3000 JSR DP.TRUE IN CASE 1 ARGUMENT 
0A21- 20 B7 00 3010 JSR AS.CHRGOT 
OA24=- C9 2C 3020 CMP #', TWO-ARG? 
OA26=- DO 06 030 BNE .1 NO 
OA28- 20 B1 00 3040 JSR AS.CHRGET GOBBLE 
OA2B- 20 FF FF 3050 JSR DP.EXP YES,GET OTHER ONE 
OAZE- 20 FF FF 3060 .1 JSR POP.STACK.ARG GET 1ST ARG BACK 
OA31- BB DE 9 9 , JSR AS.CHKCLS REQUIRE *)* 
090 . ATN (ARG,DAC) ARG/DAC 
110 DP.ATAN 
OA34~ AD OB 08 3120 LDA DAC.SIGN SAVE BOTH SIGNS 
OA37=- OA 130 ASL SIGN OF DENOMINATOR 
OA38=- AD 17 08 3140 LDA ARG.SIGN SIGN OF NUMERATOR 
OA3B— 6A 190 RO BIT 7 = DENOM SIGN 
OA3C- 8D 19 08 3160 STA UV.SIGN BIT 6 s NUMER SIGN 
170 #.--CHECK FOR BOUNDARIES---~ece.-- 
OA3F- AD 00 08 3180 LDA DAC. EXPONENT CHECK DENOMINATOR 
OAN2- FO OF 3190 BEQ .1 ~eeV/0, SO RETURN PI/2 
OANL- 38 200 SEC 
OAN5—- oc 08 3210 LDA ARG.EXPONENT 
OAN8- FO 17 3220 BEQ . -..0/U, SQ RETURN 0 
OA4A- ED 00 08 230 SBC DAC.EXPONENT 
OAND=- 30 0 2 BMI 13 2 
OANF- C9 1 250 CMP #2 IF >10°20, RETURN PI/2 
OA51=- 90 14 260 BCC .11 .. NOT >10°20 
0A53- AQ 9E 270 .1 LDA #CON.PI.2 vV/0 OR OVERFLOW 
0A55—- Ad 0 280 LDY /CON.PI.2 SO RETURN PI/2 
OA57- 20 FF FF 3290 JSR MOVE.YA.DAC.1 
OASA- 4C 2A OB 3300 JMP DP.ATN.C , 
OA5D= C C) 10 .13 CMP #-63 IF <10°-63, RETURN 0 
OA5F- B 0 BCS .11 
0A61- 20 FF FF 3330 .12 JSR DP.FALSE RETURN 0 
OA64— 4C 1B OB 3340 .14 JMP DP.ATN.B 
OA67= 20 FF F 0.11 JSR DDIV CALCULATE V/U 
OA6A- AD 00 0 60 LDA D ¢ , EXPONENT 
OA6D=- C9 3 rt 0-10 IF X VERY SMALL, ATAN(X)=X 
OA6F- 90 F3 380 BCC .14 ~~ VERY SMALL INDEED! 
390 fem-FOLD AT PI/4------— ne een nn ee ~ 
OA71= AQ 00 00 LDA #0 GET ABS(X) BECAUSE 
OA73- 8D OB 08 3410 STA DAC.SIGN SIGNS ALREADY REMEMBERED 
0A76- 8D 18 08 3420 STA N 
OA79—- 00 08 130 LDA DAC.EXPONENT JIS X<1? 
OA7C= C9 41 y CMP #$41 
OA7E- 90 OF 450 BCC . YES, X<1 
OA80- AQ 7D 460 LDA #CON.ONE FORM RECIPROCAL 
OA82- AO 08 470 LDY /CON.ONE 
OA8H- 20 FF FF 34 JSR MOVE. YA.ARG.1 
OA87= 20 FF FF 3490 JSR DDIV 1/X 
OA8A- AQ 02 500 LDA #2 AND REMEMBER WE DID IT 
OA8C- 8D 18 08 3510 STA N 
520 #---FOLD AT PI/12---------------= 
OA8F- 20 FF FF 230 23 JSR MOVE.DAC.TEMP1 SAVE X 
OA92= AQ E6 5 LDA #CON.TAN.PI.12 TAN(PI/12) 
OA94N- AO 09 220 LDY /CON.TAN.PI.12 
0A96- 20 FF FF 3560 JSR MOVE.YA. ARG. 1 
0A99- 20 FF FF 3570 JSR DSUB IS X>TAN(PI/12)? 
OA9C= A OB 08 3580 LDA DAC.SIGN 
OAOF- 4 5 PHA 
OAAO- 20 FF FF 3600 JSR MOVE.TEMP1.DAC RESTORE X 
OAA3~ 68 610 PLA 
OAAK~ 10 2F 3620 BPL .4 ~+NO, WE DON'T HAVE TO FOLD 
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OAA6= EE 18 08 3630 INC N » «YES 30 FORM 
OAA9= AQ 07 LDA #CON.SQR. 3 (x8sgr(3)-1) / (SQR(3)+X) 
OAAB- AO OA ~—- 3650 LDY /CON.SOQR. 3 
OAAD- 20 FF FF 3660 JSR MOVE. YA. ARG. 1 
OABO- 20 FF FF 3670 JSR DMULT X#SQR(3) 
OAB3- 20 FF FF 3680 JSR MOVE.DAC. ARG 
OABb- 20 FF FF 3690 JSR DP. TRUE 
OAB9- 20 FF FF 3700 JSR DSUB X#SQR(3)-1 
OABC- 20 FF FF 3710 JSR MOVE.DAC.TEMP2 SAVE IT 
OABF- 20 FF FF 3720 JSR MOVE.TEMP1.ARG GET X 
OAC2= AQ 07 30 LDA #CON.SQR. 3 
OACH- AO OA ~—_ 3740 LDY /CON.SQR. 3 
OAC6- 20 FF FF 3750 JSR MOVE. YA.DAC. 1 
OAC9= 20 FF FF 3760 JSR DADD SQR(3)+X 
OACC- 20 FF FF 3770 JSR MOVE. TEMP2.ARG 
OACF- 20 FF FF 31 0 JSR DDIV THE ANSWER 
OAD2- 20 FF FF 190 JSR MOVE.DAC.TEMP1 SAVE FOLDED-UP X 
3 00 #--—ATAN(O 12) aceeceeccnenee 
OADS- 20 FF FF 3810 JSR'MOVE.DAC.ARG 
OADB- 20 FF FF 3820 JSR DMULT 
OADB- 20 FF FF 3830 JSR MOVE.DAC.TEMP2 SAVE X*2 
OADE- AQ 88 8h0 LDA #P.A 
OAEO- AO 09 850 LDY /P.ATN 
OAE2- A2 0 860 LDX #P.ATN.N 
OAEN- 20 FF FF 3870 JSR POLY.N 
OAE7- 20 FF FF 3880 JSR MOVE.DAC. TEMP3 
OAEA- AQ BA 890 LDA #0.A 
OAEC- AO 0 900 LDY /Q.ATN 
OAEE- A2 0 910 LDX #Q.ATN.N 
OAFO- 20 Fre FF 3920 JSR POLY. 1 
OAF3~ 20 FF FF 930 JSR MOVE. TEMP3.ARG GET P 
OAFO- 20 FF FF 39 JSR DDIV P/ 
OAF9- 20 FY FF 3950 JSR MOVE.TEMP1.ARG GET 
OAFC- 20 “F FF 3960 JSR DMULT P(X* 3)/Q(X" 2)#x 
3970 #---UNFOLD FROM PI/12, PI/4------ 
OAFF- AE 18 08 3980 LDX N 0, 1, 2, OR 3 
OB02~ FO 17 3990 BEQ DP.ATIN.B .. eNO ADDEND 
OBON- CA 000 DEX 0, 1, OR 2 
OB05- FO 08 4010 BEQ .5 .. NO COMPLEMENT 
OBO7- AD OB 08 4020 LDA DAC. SIGN ATAN(1/X)=ATAN(PI/2 = X) 
OBOA- 49 80 — 4030 EOR #$80 
OBOC- 8D OB 08 4040 STA DAC. SIGN 
OBOF= BD E3 09 4050 .5 LDA ATN.TBL. LX GET A(N) 
0B12- BC EO 09 4060 LDY ATN.TBL.H 
OB15- 20 FF FF 4070 JSR MOVE. YA. age. 1 
OB18= 20 FF FF 4080 JSR DADD X + A(N) 
4090 ®---UNFOLD INTO QUADRANTS-------- 
4100 DP.ATN.B 
OB1B=- 2C 19 08 4110 BIT UV.SIGN TEST SIGN OF DENOMINATOR 
OB1E- 10 0A 4120 BPL DP.ATN. .»POSITIVE, 1ST OR 4TH 
OB20- AO A 4130 LDA #CON.PI .. NEGATIVE, 2ND OR 3RD 
OB22- AO 0 4140 LDY /CON .PI SO DO Pi-X 
OB24- 20 FF FF 4190 JSR MOVE. YA. ARG. 1 
OB27- 20 FF FF Mt 0 JSR DSUB 
4180 DP.ATN.C 
OB2A- 2C 19 08 4190 BIT UV.SIGN TEST SIGN OF NUMERATOR 
OB2D- 50 0 4200 BVC . .» POSITIVE, 1ST OR 2ND 
OB2F- AD OB 08 4210 LDA DAC. SIGN . NEGATIVE, 3RD OR 4TH 
OB32- 49 80 4220 EOR #$80 -X 
OB34- 8D OB 08 4230 STA DAC. SIGN 
OB37- 60 u2No 6 RTS 


EPROM Programmer 


A new EPROM Programmer, called the PROmGRAMER, is out from SCRG 
(the makers of quikLoader). This one burns anything from 
2716's up to 27256's, and retails at $149.50. We'll sell ‘em 
to you for a nice round §14@0. The software comes on disk, with 
instructions for loading it into EPROM for the quikLoader card. 


---also burns 27512's! 
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More Detail on Using 65C02‘'s in old Apples......Andrew Jackson 


In recent issues of AAL there have been several articles on the 
65C02 and how to get it running in the Apple II+. I too was keen 
to get a 65C02 working in my machine, and had spent some time 
trying to get first a 1MHz part and then a 2MHz part to work. 


William D. O'Ryan's letter in the June 84 AAL prompted me to try 
again and I am happy to report that the modification he described 
does work (replacing the LS257's at B6 and B7 with F257's). I 
wanted to find exactly why I could not simply substitute a 65C02 
for a 6502, and so I spent some time looking at the circuit and 
specifications, using an oscilloscope to check my results. 


The reasons that I eventually came up with are as follows. The 
Apple II circuit relies on various ‘'features' of the 6502 so that 
all the various parts of the Apple will work. The circuit 
diagram shows that the system timing is derived from 40; the 

6502 actually expects system timing to be derived from g2. 

There is a Slight delay between these two signals: ona 6502 it 
is about 50ns and on a 65C02 it is about 30ns. This difference 
in delays is what causes the problems when fitting a 65C02. 


To simplify its circuit design the Apple uses a rather dirty 
trick when reading data from RAM memory. Normally when the 6502 
reads data it expects the data on the bus to be valid 100ns 
before the end of g2, and it latches the data into its internal 
registers when g2 changes. The setup time allows the data bus 
to settle into a consistent state before being read. The Apple 
reduces the setup time to about 45 ns (worst case). This setup 
time would be ample for the 65C02 were it not for the shift 
between g0 and ¢g2; this shift reduces the setup time to 25ns. 

A 2MHz 65C02 specifies a MINIMUM 40ns setup time; obviously there 
is a -15ns tolerance on the setup time, and hence the processor 
works erratically when timings fall into worst case conditions. 


The tolerance is regained by substituting 74F257's for the two 
74LS257's at board locations B6 and B7. These two chips 
multiplex the RAM data and the keyboard data; in doing so they 
add a delay of 30ns worst case to the data. By substituting 
F257's, the added delay is reduced to 5 ns; this changes the 
tolerance on the data setup time from -15ns to +10ns. 


The Apple //e must use a Slightly modified technique when reading 
data from RAM which explains why a 65C02 works in it without any 
modifications. I cannot check this as I do not have a //e 
circuit description. Anyway, it is probably all inside the MMU 
chip. 


[ The 65816 specifications state a minimum read data setup time 
of 50ns, 10ns longer than the 65C02. One AAL reader has called 
us to report that the 65802 works wonderfully well in his old 
II+, even better than the original 6502. Some of you have 
wondered where to get the F257's: try Jameco Electronics, 1355 
Shoreway Road, Belmont, CA 94002, phone (415) 592-8097. Their ad 
in Byte, Dec '84, page 349, says they have 74F257's at $1.79 
each. (editor) ] 
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Gary Little's New Book, “Inside the Apple //e" 


This is a useful book. The kind you want to keep, read, and 
constantly use as a reference. About 400 pages thick, 6x9, 
published by Brady Communications at $19.95. 


Gary, a lawyer in Vancouver, has been serious about Apples 
since 1978 (almost as long as me). He's a long-time subscriber 
to AAL, Call APPLE, and other sources of the in-depth knowledge 
Crammed into his book. He's also a programmer, with serious 
software on the market such as “Modem Magician". He knows what 
he's writing about, and writes it well. 


A walk through the chapters may be the quickest way to get the 
measure of the book. 


1--condensed history of Apple; intro. to binary, hex, and 
assembly language. 


2--inside the 6502 itself: zero page, stack, registers, status, 
opcodes, address modes, I/O, interrupts, and the memory 
layout in the //e. 


3~-the Apple monitor: the commands explained, plus a table of 
the most useful subroutines in the monitor ROM. 


4--Applesoft: memory map, tokenization, variable storage, 
integer and real numbers, the CHRGET subroutine, linking to 
assembly language programs, subroutines in ROM, and more. 


5--DOS: internal structure, memory map, page 3 vectors, VTOC, 
catalog, track/sector lists, RWTS, and a read.sector 
program. ProDOS: memory map, page 3 vectors, volume bit 
map, directory, MLI, and a read.block program. 


6--character input and the keyboard: RDKEY, 80-column 
firmware, RDCHAR, reading a line, changing input devices, 
encoding of keys, auto-repeat, type-ahead, all about RESET. 


7--character and graphic output: too much to list here, all 
the way through double hi-res. 


8--memory management: bank switching of ROM and RAM, auxiliary 
RAM, running co-resident programs. 


9--speaker and cassette ports: music and voice. 


led bared ata experiments, push button inputs, annunciators, 
strobe. 


ll--peripheral slots: I/O memory locations, slot ROM, expansion 
ROM, scratchpad RAM, auxiliary slot, software protocols. 


Many useful and interesting programs are listed in the book. 
There is an optional diskette available (coupon bound in the 
book offers it for $20). The diskette also includes a few 
bonus utility programs for use with DOS 3.3, including RAMDISK 
and DISK MAP. 
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FONT DOWNLOADER & EDITOR ($39.00) 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. All special printer functions (like expanded, compressed etc.) 
apply to custom fonts. Full HIRES screen editor lets you create your own characters and special graphics 
symbols. Compatible with many parallel printer |/F cards. User driver option provided. For Apple Il, il+, //e. 
Specify printer: Apple Dot Matrix, C.itoh 8510A (Prowriter), Epson FX 80/100, or OkiData 92/93. 


NEW ! ! ! The Font Downloader & Editor for the Apple Imagewriter Printer. For use with 
Apple Il, lit, //e (with SuperSerial card) and the new Apple //c (with builtin serial interface). 


NEW !!! FONT LIBRARY DISKETTE #1 ($19.00) contains lots of user-contributed fonts for all 
printers supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of machine language programs. DISASM converts machine code into meaningful, 
symbolic source. Creates a standard text file compatible with S-C, LISA, ToolKit and other assemblers. Handles 
data tables, displaced object code & even lets you substitute your own meaningful labels. (100 commonly used 
Monitor and Pg Zero names included.) An address-based triple cross reference table is provided to screen or 
printer. DISASM is an invaluable machine language learning aid to both novice & expert alike. Don Lancaster 
says DISASHM is “absolutely essential” in his new ASSEMBLY COOKBOOK. For entire Apple I! family including the 
new Apple //c (with all the new opcodes). SOURCE CODE available for an additional $30.00 


S-C Assembler (Ver 4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 

* SC_XREF - Generates a GLOBAL LABEL Cross Reference Table for complete documentation of source listings. 
* SC.GSR - Global Search & Replace eliminates teadious manual renaming of labels. Search all/part of source. 
* SC.TAB - Tabulates source files into neat, readable form. SOURCE CODE available for an additional $30.00 


The ‘PERFORMER’ CARD ($39.00) 

Plugs into any slot to convert a ‘dumb’ centronics-type printer I/F card into a ‘smart’ one. Command menu 
eliminates need to remember complicated ESC codes. Features include perforation skip, auto page numbering 
with date & title. Includes large HIRES graphics & text screen dumps. Specify printer: MX-30 with 
Graftrax-60, MX-100, MX-60/100 with Graftraxplus, NEC 8092A, C.lton 8510 (Prowriter), OkiData 82A/85A 
with Okigraph & OkiData 92/93. SOURCE CODE: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Communications ROM plugs directly into Novation’s Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing, true dialtone 
detection, sudible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. Uses superset of 
Apple’s Comm card and Micromodem 11 commands. SOURCE CODE: $50.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 
Plugs into any Apple slot. Holds one user-supplied 2Kx6 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $CnO0-CnFF and $CBO0-CFFF. 


NEW !!! C-PRINT For The APPLE //c ($99.00) 

Connect standard parallel printers to an Apple //c. C-PRINT is a hardware accessary that plugs into the 
standard Apple //c printer serial port. The other end plugs into any printer having a standard 36 pin 
centronics-type perallel connector. Just plug in and print! High speed date transfer at 9600 Baud. No need to 
reconfigure serial port or load software drivers for text printing. 


Avoid a $3.00 postage/handling charge by enclosing full payment with order. § (Mastercard & VISA excluded) 
RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 


SCEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 
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Each chapter ends with a bibliography of related books, 
manuals, and articles. (You'll find lots of references to 
AAL. ) 


If you grew along with Apple, as I did, you probably don't 
really need this book. On the other hand, you will still enjoy 
it, and probably want it for you collection. If you are 
relatively new, and having difficulty gathering all the 
information from past publications and scattered sources, you 
will want Gary's book too. 


As you might suspect, we like the book so well we have decided 
to stock it. You can get from us for $18 plus shipping (and 
tax where applicable). 


Correction re MVN and MVP in 65802........-Bob Sander-Cederlof 


In the October AAL I presented a general memory mover written 
in 65802 code. I stated that the MVP and MVN instructions took 
3 cycles-per-byte during the move. I was wrong. 


In looking through small tiny print in the preliminary 
documentation for the chip, I came across the number "7". 
Shocked, I wrote a little test program which moved 10000 bytes 
1000 times. That means the MVN in my test would move a total 
of 10,000,000 bytes, With a stop watch I clocked the running 
time at just under 70 seconds. If it had been 3 
cycles-per-byte, the test would have run in 30 seconds. 


I don't know how I got that "3" in my head, but the right 
number is “7°. Still considerably faster than 6502, though. 


1000 *SAVE S.TIME MVN 
1010 - OP FS 


1920 . .OR $3 
00- 1940 CNTR -EQ 0 AND 1 ~ 
1060 MVN.TIMER 
ttt ee 1080 xCE aioe 
000302- C2 30 1090 . REP #$30 16-BIT MODE 
000304- A9 E803 «1110 ~+~3)»)ds LDA ##1000.—— ~~ 
000307- 85 00 1120 . STA CNTR 
000309= A2 00 30 iiko 1 LDX ##$3000 Source start address 
00030C=- AO 00 40 see LDY ##$4000 Destination start address 
00030F- A9 OF 1160 LDA ##9999 # Bytes - 1 
000312— 54 00 00 1170 MVN 0,0 
000315- C6 00 1180 DEC CNTR 
1190 4 BNE .1 
000317- 38 1210 SEC RETURN TO 6502 MODE 
000318- FB 1220 XCE 
000319- 60 1230 RTS 
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Strange Way to Divide by 7.....cceescececeee BOD Sander-Cederlof 


Division by seven is a necessary step for hi-res plotting 
routines. The quotient is the byte index on a given scan line. 
The remainder gives the bit position within that byte. 


The hi-res code inside the Applesoft ROMs uses a subtraction 
loop to divide by seven, which can loop up to 36 times at 7 
cycles per loop. This is a maximum of over 250 cycles, which 
is why super-fast hi-res usually uses lookup tables for the 
quotient and remainder. 


I stumbled on a faster way of dividing any value up to 255 by 
seven. This is not directly usable by standard hi-res, because 
the x-coordinate can be as large as 279, My trick also does 
not give the remainder, just the quotient. 


Here is the program, along with a test routine which tries 
every value from 0 to SFF, printing the quotient. The output 
from the test program is also shown, and you can see that the 
quotient is correct in every case. Can you explain why it 
works? 


{ Hint: 1/7 = 1/8 + 1/64 + 1/512 + 1/4096 + .,.. ] 


1000 *SAVE S.FUNNY DIVIDE BY SEVEN 
00- 1020 BYTE .EQ 0 
1030 fom mene ccc ena Sakata ema 
0800- A9 00 1040 T LDA #0 
0802- 85 00 1050 STA BYTE 
0 04 - A2 OE 1060 LDX #14 
0806- EO 07 1070 1 CPX #7 
0808- DO 05 1080 BNE .4 
O80A- AQ AO 1090 LDA $A0 
080C- 20 ED FP 1100 JSR $FDED 00000000000000 01010101010101 
O80F- 20 23 08 1110 .4 JSR DIVIDE.BY.SEVEN 02020202020202 0 030303030303 
0812= 20 DA FD 1120 JSR $FD O4ONONOXOHONON 0505050505050 
0815= E6 00 1130 INC BYTE 06060606060606 07070707070707 
0817= FO 09 1140 BEQ ,3 08080808080808 09090909090909 
0819=- CA 1150 DEX OAOAQAOAOAOAOA QBOBOBOBOBOROB 
081A=- DO EA 1160 BNE ,1 OCOCOCOCOCOCOC OBODODODODODOD 
081C=- 20 8E FD 1170 JSR $FD8E OEOEOROROEQEOE OFOFOFOFOFOFOF 
O81F- 4c O48 08 1180 JMP .2 10101010101010 11111111111111 
0822- 60 1190 .3 RTS lerei2ieteiei2 1313! 13131313 
1200 @oceseen cc cc ceceasecewsence 14141418741414 1515151515151 
1210 DIVIDE.BY, SEVEN 16 16 16 16 36 36 16 aye HOY Oay 
0823= A5 00 1220 LDA BYTE 18181818181818 1919191919191 
0825= HA 1230 LSR TATATATATA1A1A 1B1B1B1B1B1B1B 
0826—- 4A 12 LSR 1C1C1C1C1C1C1C 1D1D1iD1D1D1D1D 
0827- 4A 1250 LSR 1E1E1E1E1E1R1E 1F1FIFIFIFIFIF 
0828- 65 00 1260 ADC BYTE 20202020202020 21212121212121 
O82A- 6A 1270 R 22222 222222222 23232323232323 
O82B- 4A 1280 LSR 2h242koy 
082C- 4A 1290 LSR 
082D- 65 00 4300 ADC BYTE 
O82F- 6A 1310 ROR 
op ay ae 1330 (sk 
OB a3 60 a0 RTS 
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It is possible to divide by 3 or 15 using a program based on 
the same principle as the divide-by-seven above. Here is the 
code for those. 


1210 DIVIDE.BY. FIFTEEN 1210 DIVIDE.BY. THREE 

1220 LDA BYTE 1220 LDA BYTE 

1230 LSR 1230 LSR 

1240 LSR 1240 LSR 

1250 LSR 1250 ADC BYTE 

1260 LSR 1260 ROR 

1270 ADC BYTE 1270 LSR 

1280 ROR 1280 ADC BYTE 

1290 LSR 1290 ROR 

es OD 
1310 ADC BYTE 

1320 ADC BYTE 1320 ROR 

1330 ROR 1 Be LSR 

1340 LSR 1340 ADC BYTE 

1350 LSR 1350 ROR 

1360 LSR 1360 LSR 

1370 RTS 1370 RTS 


Using the divide by 15, you could make a divide by ten. First 
multiply the original number by three (by shifting one bit left 
and adding), then divide by 15 using the above program, and 
then by 2 (by shifting one bit right). Since 3xX/30 = x/l10, 
there you have it. 


BLANKENSHIP BASIC REM sample listing 
For the Apple II+, IIe, and IIc COMPILE 

PRINT " N SIN(N)" 
WHILE-ENDWHILE and REPEAT-UNTIL loops N= 1 
True IF-THEN-ELSE-ENDIF (Using WHEN) REPEAT 
PRINT.USING, FILE, MERGE, RANDOMIZE WHEN X < 10 THEN 
PRINT and TAB commands work in HIRES PRINT " ";N, 
80 columns supported on IIe and IIc PERFORM "INPUT" 
Full Editor with AUTO-NUM and RENUM ELSE 
Listings are indented automatically PRINT N, 
Fast SORT, SBARCH and INSTR$ commands PERFORM "OUTPUT" 
BOX, BOXFILL , DRAW.USING and SOUND | ENDWHEN 
10. No more CHR$(4) for DOS commands PRINT SIN (N) 
11. DEFINE and PERFORM named proceedures @ N= N+] 
12. 99% Upward compatible with Applesoft UNTIL N = 20 

END 


1. 
2 
3 
4. 
5. 
6. 
7 
8 
9 


«xx Introductory Offer @2O postpaid **® 
: DEFINE "OUTPUT" 
Money back if not entirely satisfied! REM this is a dummy 
4 REM procedure 
mail check to: or” FINISH 
John Blankenship 
P.O. BOX 47934 DEFINE "INPUT" 
Atlanta GA 30362 REM so is this 
FINISH 
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Sly Hex ConverSion....ccccccccrceccceveccseeeBOD Sander—-Cederlof 


Have you ever wondered what would happen if you added, in the 
6502 decimal mode,values that were not decimal? I have. I 
also wondered if any of the results might be useful. 


For example, what happens if I add 0 to $0OA, in decimal mode? 
The following little piece of code will tell me: 


CLC 

SED set decimal mode 

LDA #S0OA 

ADC #0 

CLD Clear decimal mode 

JMP SFDDA monitor print byte routine 


Lo! The SOA turns into $10! It makes sense, because of course 
adding zero does not change anything. But the automatic 
"decimal adjust" that occurs after the add when the 6502 is in 
decimal mode detects the "A" nybble, generates a carry to the 
next nybble, and subtracts $0A. 


It turns out the same process turns $0OB into $ll, $0C into $12, 
and so on up to SOF into §15. 


That is a useful result! That means that I can convert a hex 
nybble to BCD byte by merely adding zero when in decimal mode! 


A little further experimentation will lead to another useful 
trick. If I add first $90 and then $40, both additions in 
decimal mode, a value between $00 and SOF will be converted to 
the ASCII code for the digits 0-9 and letter A-F. Believe it 
or not! 


The first addition, of $90, gives us $90-S9F,. The automatic 
"decimal adjust" does nothing to $90-$99, and carry will be 
Clear afterwards. If the intermediate result was S9A-S9F, the 
decimal adjust will first generate a nybble carry because the 
A-F nybble is greater than 9, and reduce that nybbie by A. The 
nybble carry will increment the 9 nybble to A, which gets 
reduced back to 0 and a byte carry is set. This means we end 
up with $90-$99 with carry clear or $00-$05 with scarry set. 


Adding $40 in the next step brings the $90-$99 up to $30-$39 
(with carry out of the byte, which we will ignore). The 
$00-$05 will be brought up to $41-$45, ASCII codes for A-F. 
Voila! 


Useful, but maybe not the best. It turns out that a more 
traditional approach is only one byte longer and saves a few 
cycles. With the value $00-SOF in the A-register: 


CMP #SOA 

BCC .1l 0-9 

ADC #6 convert A-F to $11-16 
~-l ADC #$30 


will convert to ASCII. 
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ooo 


FD 


FwWny20 


Oooo0oeo 
fo loTo) 


WN 


BRIS 


v0 


ee ed cd ed eh edd coed cc coe en ened enh eed eed ced cee wed cl cee ce ee ee eed et th cet od od a a ee eh cad eh ee eed oe oh ed 


& Suds WUWIAW) AD AO AD 


TIAA NIAAA) qd cad ond aed od tk = et ot 
lelelelelol@lololojololelol=i olla) 


62 


faleloxolololelolrelelelol 1-1) -7se) 


at OVO CO OVI FLW A) OO OJ 


TXA 
JSR 
LDA 
JSR 
TXA 


JSR 
LDA 
JSR 
TXA 


SED 
CLC 
ADC 
ADC 
CLD 
JSR 


LDA 
JSR 
TXA 


JSR 


JSR 
INX 
CPX 
BCC 
RTS 


®SAVE S.HEX TO DEC 
LDX #0 


FDDA 
won 
FDED 


$FDDA 


gen 


$FDED 


#380 


fEDDA 
ae | 
$FDED 


$FDDA 


$FD8E 
#16 


Now you can monitor and control the world (or at least your part of it) with a little help from 


APPLIED ENGINEERING 


12 BIT, 16 CHANNEL, 


PROGRAMMABLE GAIN A/D 
All new 1984 design incorporates the 
latest in state-of-art 1.C. technologies. 
Complete 12 bit A/D converter, withan 
accuracy of 0.02%! 


16 single ended channels (single ended 
means that your signals are measured 
against the Apple’s GND.) or 8 
differential channels. Most all the 
signals you will measure are single 
ended. . 

9 software programmable full scale 
ranges, any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: +10 volts, +5V, 
+2.5V, +1.0V, +500MV, +250MV, 
+1O00MV, +SOMYV, of +25MV. 

Very fast conversion (25 micro seconds). 
Analog input resistance greater than 
1,000,000 ohms. 

Laser-trimmed scaling resistors. 

Low power consumption through the 
use of CMOS devices. 

The user connector has +12 and -12 
volts on it so you can power your 
sensors, 

Only elementary programming is 
required to use the A/D. 

The entire system is on one standard 


8 BIT, 8 CHANNEL A/D 
8 Channels 
8 Bit Resolution 
On Board Memory 
Fast Conversion (078 ms per channel) 


A/D Process Totally Transparent to 
Apple (looks like memory) 


The APPLIED ENGINEERING A/D 
BOARD is an 8 bit. 8 channel, memory 
buffered, data acquisition system. It 
consists of an 8 bit A/D converter, an 8 
channel multiplexer and 8 x 8 random 
access memory. 


The analog to digital conversion takes 
place on a continuous, channel 
sequencing basis. Data is automatically 
transferred to on board memory at the 
end of each conversion. No A/D 
converter could be easier to use. 

Our A/D board comes standard with 0, 
10V full scale inputs. These inputs can 
be changed by the user to 0, -10V, or 
-5V. +5V or other ranges as needed 
The user connector has +12 and -12 
volts on it so you can power your 
sensors, 


Accuracy: 0.3% 


: e Resi : 20K Ohms T 
size plug in card that fits neatly inside OP UU EE sae: AUR Ae 


the Apple. 
System includes sample programs on 


ee PRICE $319 
A few applications may include the monitoring of @ flow @ temperature @ humidity 


@ wind speed @ wind direction @ light intensity @ pressure ® RPM ®@ soil moisture 
and many more. 


PRICE $129.00 


SIGNAL CONDITIONER 


Our 8 channel! signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 F.E.T. op-amps, which allow almost any gain or offset For example: an 
input signal that varies from 2.00 to 2.15 volts or a signal that varies from 0 to 50 mV can 
easily be converted to 0-10V output for the A/D. 


The signal conditioners outputs are a high quality 16 pin gold I.C. socket that matches the 
one on the A/D's soa simple ribbon cable connects the two. The signal conditioner can be 
powered by your Apple or from an external supply. 


FEATURES 

@ 4.5” square for standard card cage and 4 mounting holes for standard mounting. The 
signal conditioner does not plug into the Apple, it can be located up to 2 mile away from 
the A/D. 

22 pin.156 spacing edge card input connector (extra connectors are easily available i.e. 
Radio Shack). 


Large bread board area. 


e 
Full detailed schematic included. 


PRICE $79.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Your inputs can be anything from high 

* speed logic to simple switches. 

@ Very simple to program. just PEEK at the 
data. 

@ Now. on one card, youcan have 8 digital 


Provides 8 buffered outputs to a 
standard 16 pin socket for standard dip 
tibbon cable connection. 

Power-up reset assures that all outputs 
are off when your Apple ts turned on. 


Features 8 inputs that can be driven 
from TTL logic of any 5 volt source. 


Outputs and B digital inputs each with its 
own connector. The super input/output 


board is your best choice for any control 
application. 
The SUPER INPUT/OL'TPL-T board manual includes many programs forinputs and outputs. 
A detailed schematic is included 
Some applications include: 
Burglar alarm, direction sensing, use with relavs to turn on lights, sound buzzer, start 
motor, control tape recorders and printers, use with digital joystick. PRICE $69.00 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster Clock Card and other products for the Apple. 
Our boards are far superior to most of the consumer electronics made today. All LC.’s are in high quality sockets with mil-spec. components used throughout. P C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products Compatible with Apple [i and //e. 


Applied Engineering's products are fully tested with Compiete documentation and available for immediate delivery. All products are guaranteed with a no hassle three year warranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 


Send Check or Money Order tu: 
APPLIED ENGINEERING 
P.O. Box 798 
Carroliton, TX 75006 


Call (214) 492-2027 
7 a.m. to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 
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Remembering When... .cccccccccccccccccecesee eBOD Sander—Cederlof 


There is a lot of grumbling going on, or at least so says the 
media. Supposedly Mac owners are MAD over Apple's $995 price 
tag for the 512K upgrade kit. And the fact that new buyers get 
a lower system price makes them even madder. 


If it's true, then I guess the computer “for the rest of us" 
has found a market with a real-estate or Detroit mentality. 
Haven't they noticed that prices on virtually all electronic 
items go down every year? (I always say, “If houses and cars 
had gone the way electronics has over the last 30 years, we 
would now be able to buy a 3-bedroom home for two dollars and a 
nice car for 50 cents. Of course they would both fit on the 
head of a pin....”) 


I remember when I bought my Apple, with two rows of 4K RAM 
chips totalling 8K bytes. Adding another row of 4K chips would 
have cost me about $50. The price at that time for one set of 
8 16K chips was $520. Through a special arrangement at Mostek, 
members of our local club were able to get them for $150. So 
to raise my Apple from 8K to 48K cost me $450. Retail price 
would have been $1560, plus tax. 


Looking back even further, I found a letter from a Raymond 
Hoobler to the editor of the Journal of Dentistry, from October 
1976. Ray owned an Apple 1, which was populated with 1K RAM 
chips. He was VERY happy with Apple's promise of an upgrade 
kit consisting of 4K RAM chips for ONLY $500! 


It will not be too long before the price of 256K RAMs drops. 
Then we can start grumbling about the price of 4-megabyte 
upgrade kits. Or, we could rejoice at the blessings of ever 
improving technology, mass marketing, and understanding wives. 


APPLE SOFTWARE ENGINEER 


Applied Engineering, a major manufacturer of 
Apple peripherals, has an opening for a 6502 


Machine Language Programmer. Apple experience 
is required. 


(214) 492-2027 
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Generating Tables for Faster Hi-Res........-Bob Sander-Cederlof 


Look on page A23 in the Apple Supplement in the back of the 
December 1984 issue of Byte for an excellent article for the 
hi-res graphics buff: “Preshift-Table Graphics on Your Apple", 
by Bill Budge, Gregg Williams, and Rob Moore. 


The article presents another of Bill Budge's secrets for fast 
animation using block graphics. If you want to move a block a 
few dots left or right, it is time-consuming to shift the 
7-bits-in-8 dot images. Older techniques stored pre-shifted 
sets for each image that might be moved. The neater method 
described in this article stores a 14x256 byte table of all 
possible shifts of all possible bytes, and uses a fast lookup 
technique. I am not going to repeat all that here ... get the 
article. 


The article also included some sample programs that used two 

other tables: a 192 entry address table for the addresses of 
each hi-res line, and a 280 entry table for the quotient and 

remainder of each horizontal position. Both of these tables 

were originally generated by Applesoft programs, and BSAVEd. 

The example program BLOADed then. 


It dawned on me that a machine language program to generate 
those two tables would take less than half a page of code and 
be considerably faster than BLOADing pre-generated tables. 
Furthermore, once the tables were generated, the haif-page of 
code could be overlaid with other programs or data. Ina 
commercial product, this could cut down the boot time 
Significantly. 


First I wrote a program to generate the 192 addresses. This 
was almost a hand-compilation of the Applesoft program in the 
Byte article, but not quite. (I wrote the comments in near- 
Basic, as you can see.) 


Then I merged into that program the stuff to generate the first 
192 quotients and remainders. This is the horizontal dot 
position divided by 7 (7 dots per byte) to give the byte 
position on the line and the bit position in that byte. 


After the 192 trips through that code, I added a loop to 
generate the rest of the Q/R pairs, from dot position 192 up to 
279. 


I timed the program by running it 250 times. All 250 took 
roughly 3 seconds, which means building the tables once takes 
about 12 milliseconds. Compare that to loading them from disk, 
which would take at least a half second. 


I haven't tried it yet, but I think the preshift tables which 
were the meat of the Byte article could also be generated by a 
machine language program much quicker than BLOADing the same. 
And since the program only needs to be used once, during 
initialization, it too could be burned after using. 
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1000 *SAVE S.MAKE HIRES ADDRS _ 
9040 Wesco 2 oon ee eee eeeee 
00- 1020 I .EQ 0 
01- 1030 JL EO 1 
02- 100 JH “EQ 2 
03- 1050 K "EQ 
1070 R “BQ 5 
05- TORO. Bxeeeeens ooo ceceesecmeeecsecceces 
2 1090 ADDRL .EQ $900 
eta 1100 ADDRH +E ie 
ono 1129 QUO. 2 “EQ QUO. 14192 
Oee8. 1180 ReMl2 CEG REM. 42192 _ 
94600 We eee eae Bos 
FOR X= 0 TO J91 STEP | 
0800- A2 00 1160 BUILD LDX #0 : 13 STEP |, 
ge ge SEE FREED Bad" toon 
Ook. Be os | (deeO are Ke FOR K = 0 TO $1C STEP $04 
5 re Be oF 1310 STX Q QUOTIENT. « ° 
epee neue “len @---BUILD NEXT HI-RES ADDR mses 
OB0R- A500 1210 EDA T 
OB12— 9b 00 09 1260 STA ADDRL,x 
O815- A9 20 1270 LDA 
op tsz be os 1360 ‘ 
7 STA ADDRH,X 
081B- 9D CO 09 19 ®.--SAVE NEXT O/k PA TReeeensccuse 
OB26- $8 Bo on 1330 SPA Guo. 1, 
o625- 96 96 on 130, STA Mme 
- 18 1370 CLC 
oAoG LDA K 
0829- A5 0 1380 LDA 
O82B- 69 1390 ADC 
O8ore 3 9 1410 FOR #$20 
at a = 1430 ees as en an an (> > Ot 2 Sm in tit an tin ee 
STA 
OB 32 B28 Wia0 LDA JL 
80 1860 EOR #$80 
Op att ge oy tute STA JL 
OBB. DO11 «1460 BNE 2 
O83D- E6 02. ~—«- 1490 INC 
opie te ok teto EOR #4 
0843- DO 09 1326 yee nee om Sp OD OP Oa |S Or 3, wn Ob aw ow & a 
gia goes 
. I 
SBuA- 63 28 «BGO KDC 4$28 
OB4A- 69 2 { abc 4 
OBC 85 00 eee o__-BUME A/L PAIR-~----~- aero 
OB4E- E6 05 1609 .2 INC R R COUNTS 0...6 
GReoe ue OF «tea FOR #7 IF Rs7, MAKE O AND BUMP 
o854- DO O4 1630 BNE 3 MOTT YET ono 
Op. 82 8 19,0 INC Q [ap Bune 6 
° 3 ~ E ° Meee #.-—-NE XT X 2 GP a? a= o> Gs Ge Gp Op Ge Gt Gp Ga Das SS See 
O85A- EB 1670 .3 INX 
OBB. EO CO 1600 CPX #192 
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1700 #=--NOW FINISH Q/R PAIRS--------- 
1710 #=---BETWEEN 192 AND 279---------- 
O85F- A2 00 ~=1720 LDX FOR X = 0 TO 280-192-1 
0861- AS 0% 1730 4 LDA Q 
0863- 9D 40 OB 1740 STA QUO.2,X 
0866- AS O 1750 LDA R 
0868- 9D 58 OC 1760 STA REM.2,X 
1 70 #---BUMP Q/R PAIR AS BEFORE~----- 
O86B- E6 05 ~—=—«1780 INC R 
O86D- A5 05 ~—=—- 1790 LDA R 
O86F- 49 0 1800 EOR # 
0871=- DO 1810 BNE . 
0873=- 85 HA 1820 STA R 
0875- E6 1830 INC Q 
uf 0 teeeNEXT Xoewwownwweewewoeowonwwe] 
0877- E8 1850 . INX 
0878- E0 58 1860 CPX #280-192 
O87A- 90 E5 1870 BCC .4 
087C- 60 18 0 RTS 
1 90 Shes ee eee e seers coe eees ewww 


Blanken :ip'S BaSic.....cccccccescccccecee BOD Sander—Cederlof 


John Blankenship has put together an Applesoft enhancement 
package, at a mouth-watering price. (See his ad elsewhere in 
this issue for his $20 introductory offer.) He sent me a 
review copy, so I tried it out. 


BBASIC is a large chunk of machine language code that sits 
between HIMEM and the DOS file buffers. It also sits between 
you and Applesoft, hiding itself behind a facade of new editing 
and listing features. BBASIC takes control even in direct 
mode, giving you an EDIT command, structured listings, and the 
ability to skip out of long catalogs. 


In pure BBASIC, line numbers are used only as line numbers, not 
as destinations for GOTOs or GOSUBs. A built-in RENUM command 
soon convinces you to live this way and like it. In place of 
line-number branches, you use alphabetic “names" for 
subroutines, and WHEN-ELSE-ENDWHEN for logic flow. John has 
also added WHILE-ENDWHILE, REPEAT-UNTIL, CASE, and other 
structured looping and branching words. 


During execution, a special COMPILE verb creates a table of 
“names” used in your program. This speeds up execution. 


Hires Text generation is built-in, along with some extensions 
to the hires graphics. Musical tone generation with control 
over pitch, duration, and timbre is also included. You also 
get SORT, SEARCH, and PRINT USING. 


I am just scratching the surface. I didn't like every feature, 
but there is plenty left over. Worth a lot more than $20. 


By the way, if John's name sounds familiar, it may be because 
he is the author of “The Apple House", a book on controlling 
your home published by Prentice-Hall. John also is a Professor 
at DeVry Institute. 
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A Solution to Overlapping DOS Patches..,..........Paul Lewis 
Fairfax, Virginia 


I have recently resolved a compatibility problem between two 
desirable sets of DOS 3.3 patches: the RAMdisk of the 192K 
Neptune extended memory card, and the DOS Dater that comes with 
Applied Engineering's Timemaster II. It seems they both want 
to put patches into the same “unused"“ spaces inside DOS. 


After examining the two patches carefully, I found out which 
parts of the patches were overlapping. Being unable to find a 
truly unused area inside DOS, I used the technique on page 7.3 
of "Beneath Apple DOS“ of placing routines in the “safe” area 
between DOS and its buffers. This seems to work fine. [ Until 
you try to run some other program that does the same thing, 
like PLE... (editor) ] 


The file DATER.OBJO contains the DOS.DATER patch that I use. I 
noticed that the patch could be placed anywhere, since there 
are no internal references. Using an Applesoft program (part 
of my HELLO), I move the DOS buffers down far enough to fit 
this code in, and then BLOAD the patches. 


100 PRINT CHRS$(4) "BRUN AUTO NEPTUNE “ 

110 PRINT "PSEUDO DISK INSTALLED" 

120 POKE 40192,128 : REM Lower the buffers 
130 PRINT CHRS$(4) "MAXFILES 3" 

140 PRINT “BUFFERS MOVED" 

150 PRINT CHRS$(4)"“BLOAD DATER.OBJ0,AS9CDO" 
160 POKE 45571,15 :REM Patch file name length 
170 POKE 42883,14 

180 POKE 44085,208 :REM Hook DOS to the DATER code 
190 POKE 44086,156 

200 PRINT "DOS DATER INSTALLED" 


Don Lancaster's AWiIe TOOLKIT 


Solve all of your Applewriter” Ile hassles with these eight diskette sides 
crammed full of most-needed goodies including ... 


Patches for NULL, shortline, IIe detrashing, full expansion 
Invisible and automatic microjustify and proportional space 
Complete, thorough, and fully commented disassembly script 
Detailed source code capturing instructions for custom mods 
Clear and useful answers to hundreds of most-asked questions 
Camera ready print quality secrets (like this ad, ferinstance) 
New and mind-blowing WPL routines you simply won't believe 
Self-Prompting (!) glossaries for Diablo, Epson, many others 
Includes a free “must have" bonus book and helpline service 


All this and bunches more for only $39.95. Everything is unlocked and 
unprotected. Order from SYNERGETICS, 746 First Street, Box 809-AAL, 
Thatcher, AZ, 85552. (602) 428-4073. VISA or MC accepted. 
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of one card is 256K, so many frequently used programs 
and utilities can be stored. We even start your library of 
programs with the most popular utilities on the card, FID 
and COPYA. Now, if you have to copy a disk, you don’t 
have to search for the master disk. You can start copying 
within 3 seconds after turning on the computer. 
INCREASED DISK CAPACITY 

Since DOS is loaded from the quikLoader every time the 
computer is turned on, it is not necessary to take up 
valuable disk space with DOS. This will give you more 
than 5% additional space for programs and data on your 
oF disks. 

ie gt AAA oo pie ag SYSTEM REQUIREMENTS 


== quikLoader 


EES 
s Sa” 
Pee 


eotnoe 


Designed by Jim Sather a 
SPEED The quikLoader will work in an APPLE } [, ] [+. or //e. If 


used in a } (+, a slightly modified 16K memory card is 
required in slot 0. A disk drive is required to save data. 


OOS. INTEGER BASIC. FID, and COPYA are copyrighted programs of APPLE 
COMPUTER. INC. licensed to Southern Califorma Research Group to 
distribute for use only in combination with quikLoader. 


The quikLoader is the fastest way to load programs, BAR 
NONE! Applesoft, Integer, or machine language 
programs can be loaded in fractions of a second. More 
importantly, DOS is instantly loaded every time the 
computer is turned on. integer is even loaded in the 
language card. This process takes less than a second, 


saving valuable time. The quikLoader operating system 
can keep track of over 250 programs stored in PROMs 
(Programmable Read Only Memory). The user simply 
transfers any of these programs to PROM using the 
instructions packed with the unit, and any PROM 
programmer, or we will provide this service. 
CONVENIENCE 

How many times have you started to work with a 
frequently used program, only to find that you have 
misplaced the disk, or worse, had the disk damaged, or 
the dreaded “I/O ERROR” message flash on the screen. 
With the quikLoader, these nightmares can be a thing of 
the past. Frequently used programs are availabie 
instantly when you need them, without having to look for 
the disk, or hoping that the lengthy disk loading 
procedure goes smoothly. if you do need to use standard 
disks, the quikLoader even speeds up that process. For 
example, to catalog a disk, just press ctri-C Reset. Torun 
the “HELLO” program, press ctri-H Reset. Other “one- 
key” commands include entering the monitor, booting 
the disk, calling up the mini-assembler, etc. Tne major 
difference between the quikLoader and the other ROM 
cards is the complete operating system (in PROM). This 
enables you to get the quikLoader catalog on the screen 
(by pressing ctri-Q Reset). allowing you to see what 
programs are available. Loading or running of the desired 
program requires one keypress. Program parameters, 
such as starting address and length of machine language 
programs can be seen on the catalog screen, if desired. 
EASE OF USE 

The quikLoader plugs into any slot of the APPLE } [ or //e. 
The card is reset driven. To use any of the many features 
of the card, RESET is pressed in conjunction with a key. 
The particular key pressed chooses the feature. 
VERSATILE 

The quikLoader will accept any of the popular PROMS 
available on the market, 2716, 2732, 2764, 27128 and 
27256. These types may be freely intermixed on the card. 
Long programs can take up more than one PROM, or 
several short programs may be stored on one PROM. The 
QuikLoader operating system even handles multiple 
cards, sO you can easily double or triple the amount of 
PROM memory available. The ultimate memory capacity 


NOW AVAILABLE FOR quikLoeder: 
DOUBLE-TAKE by BEAGLE BROS. 
COPY J] [+ by CENTRAL POINT SOFTWARE 


BARKOVITCH I/O TRACER AND SINGLE STEP TRACE 


MICRO/TYPOGRAPHER BY TIDBIT SOFTWARE 
More programs coming soon. 


DBD MAnual controller 


Designed by Jim Sather 


This hardware product gives the user complete control 
over all I/O functions in the range $CQO@ through 
SCOFF. 


EXAMPLES: 


e Switch between TEXT and GRAPHICS. 
e Select HIRES or LORES. 


© Select Page 1 or 2. 

e Turn drives ON or OFF. 

e Step head either direction. 

@ Protect or enable language card. 


All this can be done while programs are running. 
Commands can be issued (via push-buttons) in the 
middie of a program, and the desired result occurs 
immediately, without interfering with the normal 
operation of the program. The card is slot-independent, 
and is connected to.a contro! panel by a four foot cable. 


$89.95 


SCR( PRODUCTS FOR THE APPLE COMPUTER 


These items are also available from S-C Software. 


quikLoader -- $170 D MAnual Controller -- $85. 
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Page 28....Apple Assembly Line....December, 1984....Copyright (C) S-C SOFTWARE 


